/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / diary_note / calendar_1 / !Calendar / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 0a 0e f4 20 43 | 61 6c 65 6e 64 61 72 0d |e..... C|alendar.|
|00000020| 00 14 24 f4 20 69 6e 20 | 41 72 63 68 69 6d 65 64 |..$. in |Archimed|
|00000030| 65 73 20 57 69 6d 70 20 | 45 6e 76 69 72 6f 6e 6d |es Wimp |Environm|
|00000040| 65 6e 74 0d 00 1e 1b f4 | 20 28 63 29 20 41 6c 65 |ent.....| (c) Ale|
|00000050| 78 20 48 6f 70 6b 69 6e | 73 20 31 39 39 30 0d 00 |x Hopkin|s 1990..|
|00000060| 28 25 56 65 72 73 69 6f | 6e 24 3d 22 49 20 31 2e |(%Versio|n$="I 1.|
|00000070| 30 30 20 7b 4e 6f 76 65 | 6d 62 65 72 20 31 39 39 |00 {Nove|mber 199|
|00000080| 30 7d 22 0d 00 32 05 3a | 0d 00 3c 39 c8 99 20 22 |0}"..2.:|..<9.. "|
|00000090| 57 69 6d 70 5f 49 6e 69 | 74 69 61 6c 69 73 65 22 |Wimp_Ini|tialise"|
|000000a0| 2c 32 30 30 2c 26 34 42 | 35 33 34 31 35 34 2c 22 |,200,&4B|534154,"|
|000000b0| 43 61 6c 65 6e 64 61 72 | 22 20 b8 20 2c 74 61 73 |Calendar|" . ,tas|
|000000c0| 6b 0d 00 46 28 ee 20 85 | 20 f2 65 72 72 6f 72 20 |k..F(. .| .error |
|000000d0| 3a 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |: .. "Wi|mp_Close|
|000000e0| 44 6f 77 6e 22 20 3a 20 | e0 0d 00 50 0a f2 73 65 |Down" : |...P..se|
|000000f0| 74 75 70 0d 00 5a 17 ee | 20 85 20 f2 65 72 72 6f |tup..Z..| . .erro|
|00000100| 72 20 3a 20 51 75 69 74 | 3d b9 0d 00 64 05 3a 0d |r : Quit|=...d.:.|
|00000110| 00 6e 05 f5 0d 00 78 13 | f2 70 6f 6c 6c 28 a4 70 |.n....x.|.poll(.p|
|00000120| 6f 6c 6c 28 30 29 29 0d | 00 82 0a fd 20 51 75 69 |oll(0)).|.... Qui|
|00000130| 74 0d 00 8c 17 c8 99 20 | 22 57 69 6d 70 5f 43 6c |t...... |"Wimp_Cl|
|00000140| 6f 73 65 44 6f 77 6e 22 | 0d 00 96 05 e0 0d 00 a0 |oseDown"|........|
|00000150| 05 3a 0d 00 aa 0c dd 20 | f2 73 65 74 75 70 0d 00 |.:..... |.setup..|
|00000160| b4 35 de 20 62 6c 6f 63 | 6b 20 26 38 30 30 2c 6d |.5. bloc|k &800,m|
|00000170| 65 6e 75 20 31 35 30 2c | 74 65 6d 70 6c 61 74 65 |enu 150,|template|
|00000180| 25 20 26 38 30 30 2c 62 | 75 66 66 65 72 25 20 26 |% &800,b|uffer% &|
|00000190| 38 30 30 0d 00 be 1b de | 20 44 25 28 37 2c 37 29 |800.....| D%(7,7)|
|000001a0| 2c 41 24 28 37 29 2c 64 | 61 79 24 28 37 29 0d 00 |,A$(7),d|ay$(7)..|
|000001b0| c8 2b de 20 53 70 72 69 | 74 65 73 20 26 31 30 30 |.+. Spri|tes &100|
|000001c0| 30 2c 66 61 63 74 6f 72 | 25 20 31 35 2c 70 69 78 |0,factor|% 15,pix|
|000001d0| 74 72 61 6e 73 25 20 31 | 35 0d 00 d2 3e 21 53 70 |trans% 1|5...>!Sp|
|000001e0| 72 69 74 65 73 3d 26 31 | 30 30 30 20 3a 20 53 70 |rites=&1|000 : Sp|
|000001f0| 72 69 74 65 73 21 34 3d | 30 20 3a 20 53 70 72 69 |rites!4=|0 : Spri|
|00000200| 74 65 73 21 38 3d 31 36 | 20 3a 20 53 70 72 69 74 |tes!8=16| : Sprit|
|00000210| 65 73 21 31 32 3d 30 0d | 00 dc 39 c8 99 20 22 4f |es!12=0.|..9.. "O|
|00000220| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 32 36 36 2c |S_Sprite|Op",266,|
|00000230| 53 70 72 69 74 65 73 2c | 22 3c 43 61 6c 65 6e 64 |Sprites,|"<Calend|
|00000240| 61 72 24 44 69 72 3e 2e | 53 70 72 69 74 65 73 22 |ar$Dir>.|Sprites"|
|00000250| 0d 00 e6 2d 51 75 69 74 | 3d a3 20 3a 20 49 63 6f |...-Quit|=. : Ico|
|00000260| 6e 3d a4 69 63 6f 6e 62 | 61 72 20 3a 20 46 6f 72 |n=.iconb|ar : For|
|00000270| 6d 25 3d 31 20 3a 20 4f | 6d 69 25 3d 30 0d 00 f0 |m%=1 : O|mi%=0...|
|00000280| 2d f2 67 65 74 4d 6f 64 | 65 49 6e 66 6f 20 3a 20 |-.getMod|eInfo : |
|00000290| f2 6c 6f 61 64 54 65 6d | 70 6c 61 74 65 73 20 3a |.loadTem|plates :|
|000002a0| 20 f2 64 61 74 65 49 6e | 69 74 0d 00 fa 28 f7 20 | .dateIn|it...(. |
|000002b0| 8d 54 4e 41 20 3a 20 e3 | 20 61 25 3d 30 20 b8 20 |.TNA : .| a%=0 . |
|000002c0| 37 20 3a 20 f3 20 64 61 | 79 24 28 61 25 29 20 3a |7 : . da|y$(a%) :|
|000002d0| 20 ed 0d 01 04 31 f2 75 | 70 64 61 74 65 44 61 79 | ....1.u|pdateDay|
|000002e0| 73 20 3a 20 f2 64 65 66 | 69 6e 65 4d 65 6e 75 73 |s : .def|ineMenus|
|000002f0| 20 3a 20 f2 6d 74 69 63 | 6b 28 46 6f 72 6d 4d 25 | : .mtic|k(FormM%|
|00000300| 2c 30 29 0d 01 0e 65 dc | 20 22 53 75 6e 64 61 79 |,0)...e.| "Sunday|
|00000310| 20 20 20 22 2c 22 4d 6f | 6e 64 61 79 20 20 20 22 |   ","Mo|nday   "|
|00000320| 2c 22 54 75 65 73 64 61 | 79 20 20 22 2c 22 57 65 |,"Tuesda|y  ","We|
|00000330| 64 6e 65 73 64 61 79 22 | 2c 22 54 68 75 72 73 64 |dnesday"|,"Thursd|
|00000340| 61 79 20 22 2c 22 46 72 | 69 64 61 79 20 20 20 22 |ay ","Fr|iday   "|
|00000350| 2c 22 53 61 74 75 72 64 | 61 79 20 22 2c 22 53 75 |,"Saturd|ay ","Su|
|00000360| 6e 64 61 79 20 20 20 22 | 0d 01 18 05 e1 0d 01 22 |nday   "|......."|
|00000370| 05 3a 0d 01 2c 12 dd 20 | f2 67 65 74 4d 6f 64 65 |.:..,.. |.getMode|
|00000380| 49 6e 66 6f 0d 01 36 44 | c8 99 20 22 57 69 6d 70 |Info..6D|.. "Wimp|
|00000390| 5f 52 65 61 64 50 69 78 | 54 72 61 6e 73 22 2c 32 |_ReadPix|Trans",2|
|000003a0| 35 36 2c 53 70 72 69 74 | 65 73 2c 22 6c 61 72 72 |56,Sprit|es,"larr|
|000003b0| 6f 77 22 2c 2c 2c 2c 66 | 61 63 74 6f 72 25 2c 70 |ow",,,,f|actor%,p|
|000003c0| 69 78 74 72 61 6e 73 25 | 0d 01 40 05 e1 0d 01 4a |ixtrans%|..@....J|
|000003d0| 05 3a 0d 01 54 14 dd 20 | f2 6c 6f 61 64 54 65 6d |.:..T.. |.loadTem|
|000003e0| 70 6c 61 74 65 73 0d 01 | 5e 36 c8 99 20 22 57 69 |plates..|^6.. "Wi|
|000003f0| 6d 70 5f 4f 70 65 6e 54 | 65 6d 70 6c 61 74 65 22 |mp_OpenT|emplate"|
|00000400| 2c 2c 22 3c 43 61 6c 65 | 6e 64 61 72 24 44 69 72 |,,"<Cale|ndar$Dir|
|00000410| 3e 2e 54 65 6d 70 6c 61 | 74 65 73 22 0d 01 68 19 |>.Templa|tes"..h.|
|00000420| 49 6e 66 6f 25 3d a4 77 | 69 6e 64 6f 77 28 22 69 |Info%=.w|indow("i|
|00000430| 6e 66 6f 22 29 0d 01 72 | 20 f2 69 6e 64 69 72 49 |nfo")..r| .indirI|
|00000440| 63 6f 6e 28 49 6e 66 6f | 25 2c 38 2c 56 65 72 73 |con(Info|%,8,Vers|
|00000450| 69 6f 6e 24 29 0d 01 7c | 21 43 61 6c 65 6e 64 61 |ion$)..||!Calenda|
|00000460| 72 25 3d a4 77 69 6e 64 | 6f 77 28 22 63 61 6c 65 |r%=.wind|ow("cale|
|00000470| 6e 64 61 72 22 29 0d 01 | 86 1b c8 99 20 22 57 69 |ndar")..|.... "Wi|
|00000480| 6d 70 5f 43 6c 6f 73 65 | 54 65 6d 70 6c 61 74 65 |mp_Close|Template|
|00000490| 22 0d 01 90 05 e1 0d 01 | 9a 05 3a 0d 01 a4 11 dd |".......|..:.....|
|000004a0| 20 a4 77 69 6e 64 6f 77 | 28 61 24 29 0d 01 ae 23 | .window|(a$)...#|
|000004b0| ea 20 63 25 2c 65 6e 64 | 25 20 3a 20 65 6e 64 25 |. c%,end|% : end%|
|000004c0| 3d 74 65 6d 70 6c 61 74 | 65 25 2b 26 38 30 30 0d |=templat|e%+&800.|
|000004d0| 01 b8 4c c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..L.. "W|imp_Load|
|000004e0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |Template|",,block|
|000004f0| 2c 74 65 6d 70 6c 61 74 | 65 25 2c 65 6e 64 25 2c |,templat|e%,end%,|
|00000500| 2d 31 2c 61 24 2c 30 20 | b8 20 2c 2c 74 65 6d 70 |-1,a$,0 |. ,,temp|
|00000510| 6c 61 74 65 25 2c 2c 2c | 2c 63 25 0d 01 c2 14 62 |late%,,,|,c%....b|
|00000520| 6c 6f 63 6b 21 36 34 3d | 53 70 72 69 74 65 73 0d |lock!64=|Sprites.|
|00000530| 01 cc 26 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..&.. "W|imp_Crea|
|00000540| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |teWindow|",,block|
|00000550| 20 b8 20 63 25 0d 01 d6 | 07 3d 63 25 0d 01 e0 05 | . c%...|.=c%....|
|00000560| 3a 0d 01 ea 12 dd 20 f2 | 64 65 66 69 6e 65 4d 65 |:..... .|defineMe|
|00000570| 6e 75 73 0d 01 f4 0e ea | 20 74 24 20 3a 20 ea 20 |nus.....| t$ : . |
|00000580| dc 0d 01 fe 15 de 20 6d | 65 6e 75 66 72 65 65 25 |...... m|enufree%|
|00000590| 20 26 32 30 30 30 0d 02 | 08 12 70 74 72 25 3d 6d | &2000..|..ptr%=m|
|000005a0| 65 6e 75 66 72 65 65 25 | 0d 02 12 27 f7 2b 31 20 |enufree%|...'.+1 |
|000005b0| 3a 20 f3 20 74 24 20 3a | 20 4d 65 6e 75 4d 25 3d |: . t$ :| MenuM%=|
|000005c0| a4 63 72 65 61 74 65 4d | 65 6e 75 28 74 24 29 0d |.createM|enu(t$).|
|000005d0| 02 1c 22 dc 20 22 23 43 | 61 6c 65 6e 64 61 72 2c |..". "#C|alendar,|
|000005e0| 49 6e 66 6f 23 3e 49 6e | 66 6f 25 2c 51 75 69 74 |Info#>In|fo%,Quit|
|000005f0| 22 0d 02 26 21 f3 20 74 | 24 20 3a 20 46 6f 72 6d |"..&!. t|$ : Form|
|00000600| 4d 25 3d a4 63 72 65 61 | 74 65 4d 65 6e 75 28 74 |M%=.crea|teMenu(t|
|00000610| 24 29 0d 02 30 1e dc 22 | 23 46 6f 72 6d 61 74 2c |$)..0.."|#Format,|
|00000620| 4d 6f 6e 2d 53 75 6e 2c | 53 75 6e 2d 53 61 74 22 |Mon-Sun,|Sun-Sat"|
|00000630| 0d 02 3a 21 f3 20 74 24 | 20 3a 20 4d 61 69 6e 4d |..:!. t$| : MainM|
|00000640| 25 3d a4 63 72 65 61 74 | 65 4d 65 6e 75 28 74 24 |%=.creat|eMenu(t$|
|00000650| 29 0d 02 44 25 dc 22 23 | 43 61 6c 65 6e 64 61 72 |)..D%."#|Calendar|
|00000660| 2c 46 6f 72 6d 61 74 23 | 3e 46 6f 72 6d 4d 25 2c |,Format#|>FormM%,|
|00000670| 50 72 69 6e 74 22 0d 02 | 4e 05 e1 0d 02 58 05 3a |Print"..|N....X.:|
|00000680| 0d 02 62 12 dd 20 a4 70 | 6f 6c 6c 28 6d 61 73 6b |..b.. .p|oll(mask|
|00000690| 25 29 0d 02 6c 08 ea 20 | 61 25 0d 02 76 11 62 6c |%)..l.. |a%..v.bl|
|000006a0| 6f 63 6b 21 30 3d 6d 61 | 73 6b 25 0d 02 80 1f c8 |ock!0=ma|sk%.....|
|000006b0| 99 20 22 57 69 6d 70 5f | 50 6f 6c 6c 22 2c 30 2c |. "Wimp_|Poll",0,|
|000006c0| 62 6c 6f 63 6b 20 b8 20 | 61 25 0d 02 8a 07 3d 61 |block . |a%....=a|
|000006d0| 25 0d 02 94 05 3a 0d 02 | 9e 14 dd 20 f2 70 6f 6c |%....:..|... .pol|
|000006e0| 6c 28 72 65 61 73 6f 6e | 25 29 0d 02 a8 10 c8 8e |l(reason|%)......|
|000006f0| 20 72 65 61 73 6f 6e 25 | 20 ca 0d 02 b2 17 c9 20 | reason%| ...... |
|00000700| 31 20 3a 20 f2 72 65 64 | 72 61 77 57 69 6e 64 6f |1 : .red|rawWindo|
|00000710| 77 0d 02 bc 20 c9 20 32 | 20 3a 20 f2 6f 70 65 6e |w... . 2| : .open|
|00000720| 57 69 6e 64 6f 77 28 62 | 6c 6f 63 6b 21 30 2c b9 |Window(b|lock!0,.|
|00000730| 29 0d 02 c6 1f c9 20 33 | 20 3a 20 f2 63 6c 6f 73 |)..... 3| : .clos|
|00000740| 65 57 69 6e 64 6f 77 28 | 62 6c 6f 63 6b 21 30 29 |eWindow(|block!0)|
|00000750| 0d 02 d0 1b c9 20 34 20 | 3a 20 e7 20 62 6c 6f 63 |..... 4 |: . bloc|
|00000760| 6b 21 30 3d 49 6e 66 6f | 25 20 8c 0d 02 da 22 20 |k!0=Info|% ...." |
|00000770| 20 20 20 20 20 20 3a 20 | f2 63 6c 6f 73 65 57 69 |      : |.closeWi|
|00000780| 6e 64 6f 77 28 62 6c 6f | 63 6b 21 30 29 0d 02 e4 |ndow(blo|ck!0)...|
|00000790| 24 20 20 20 20 20 20 20 | 3a 20 c8 99 20 22 57 69 |$       |: .. "Wi|
|000007a0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2d |mp_Creat|eMenu",-|
|000007b0| 31 0d 02 ee 05 cd 0d 02 | f8 17 c9 20 36 20 3a 20 |1.......|... 6 : |
|000007c0| f2 63 68 65 63 6b 28 62 | 6c 6f 63 6b 29 0d 03 02 |.check(b|lock)...|
|000007d0| 1c c9 20 39 20 3a 20 f2 | 6d 65 6e 75 53 65 6c 65 |.. 9 : .|menuSele|
|000007e0| 63 74 28 62 6c 6f 63 6b | 29 0d 03 0c 1d c9 20 31 |ct(block|)..... 1|
|000007f0| 37 2c 31 38 20 3a 20 f2 | 6d 65 73 73 61 67 65 28 |7,18 : .|message(|
|00000800| 62 6c 6f 63 6b 29 0d 03 | 16 05 cb 0d 03 20 05 e1 |block)..|..... ..|
|00000810| 0d 03 2a 05 3a 0d 03 34 | 17 dd 20 f2 6d 65 73 73 |..*.:..4|.. .mess|
|00000820| 61 67 65 28 68 61 6e 64 | 6c 65 25 29 0d 03 3e 13 |age(hand|le%)..>.|
|00000830| c8 8e 20 68 61 6e 64 6c | 65 25 21 31 36 20 ca 0d |.. handl|e%!16 ..|
|00000840| 03 48 15 c9 20 30 20 20 | 20 20 20 20 3a 20 51 75 |.H.. 0  |    : Qu|
|00000850| 69 74 3d b9 0d 03 52 1d | c9 20 26 35 30 32 20 20 |it=...R.|. &502  |
|00000860| 20 3a 20 f2 68 65 6c 70 | 28 68 61 6e 64 6c 65 25 | : .help|(handle%|
|00000870| 29 0d 03 5c 1b c9 20 26 | 34 30 30 43 31 20 3a 20 |)..\.. &|400C1 : |
|00000880| f2 67 65 74 4d 6f 64 65 | 49 6e 66 6f 0d 03 66 05 |.getMode|Info..f.|
|00000890| cb 0d 03 70 05 e1 0d 03 | 7a 05 3a 0d 03 84 14 dd |...p....|z.:.....|
|000008a0| 20 f2 68 65 6c 70 28 68 | 61 6e 64 6c 65 25 29 0d | .help(h|andle%).|
|000008b0| 03 8e 16 ea 20 74 65 78 | 74 24 20 3a 20 74 65 78 |.... tex|t$ : tex|
|000008c0| 74 24 3d 22 22 0d 03 98 | 36 62 6c 6f 63 6b 3d 68 |t$=""...|6block=h|
|000008d0| 61 6e 64 6c 65 25 20 3a | 20 62 6c 6f 63 6b 21 31 |andle% :| block!1|
|000008e0| 32 3d 68 61 6e 64 6c 65 | 25 21 38 20 3a 20 62 6c |2=handle|%!8 : bl|
|000008f0| 6f 63 6b 21 31 36 3d 26 | 35 30 33 0d 03 a2 11 c8 |ock!16=&|503.....|
|00000900| 8e 20 62 6c 6f 63 6b 21 | 33 32 20 ca 0d 03 ac 2f |. block!|32 ..../|
|00000910| c9 20 2d 32 20 3a 20 74 | 65 78 74 24 3d 22 54 68 |. -2 : t|ext$="Th|
|00000920| 69 73 20 69 73 20 74 68 | 65 20 43 61 6c 65 6e 64 |is is th|e Calend|
|00000930| 61 72 20 69 63 6f 6e 2e | 7c 4d 22 0d 03 b6 39 20 |ar icon.||M"...9 |
|00000940| 20 20 20 20 20 20 20 3a | 20 74 65 78 74 24 2b 3d |       :| text$+=|
|00000950| 22 43 6c 69 63 6b 20 53 | 45 4c 45 43 54 20 74 6f |"Click S|ELECT to|
|00000960| 20 6f 70 65 6e 20 74 68 | 65 20 43 61 6c 65 6e 64 | open th|e Calend|
|00000970| 61 72 2e 22 0d 03 c0 1f | c9 20 43 61 6c 65 6e 64 |ar."....|. Calend|
|00000980| 61 72 25 20 3a 20 c8 8e | 20 62 6c 6f 63 6b 21 33 |ar% : ..| block!3|
|00000990| 36 20 ca 0d 03 ca 34 c9 | 20 32 31 20 3a 20 74 65 |6 ....4.| 21 : te|
|000009a0| 78 74 24 3d 22 54 68 69 | 73 20 69 73 20 74 68 65 |xt$="Thi|s is the|
|000009b0| 20 4d 6f 6e 74 68 20 46 | 6f 72 77 61 72 64 20 69 | Month F|orward i|
|000009c0| 63 6f 6e 2e 7c 4d 22 0d | 03 d4 3e 20 20 20 20 20 |con.|M".|..>     |
|000009d0| 20 20 20 3a 20 74 65 78 | 74 24 2b 3d 22 43 6c 69 |   : tex|t$+="Cli|
|000009e0| 63 6b 20 53 45 4c 45 43 | 54 20 74 6f 20 6d 6f 76 |ck SELEC|T to mov|
|000009f0| 65 20 66 6f 72 77 61 72 | 64 20 6f 6e 65 20 6d 6f |e forwar|d one mo|
|00000a00| 6e 74 68 2e 22 0d 03 de | 31 c9 20 32 32 20 3a 20 |nth."...|1. 22 : |
|00000a10| 74 65 78 74 24 3d 22 54 | 68 69 73 20 69 73 20 74 |text$="T|his is t|
|00000a20| 68 65 20 4d 6f 6e 74 68 | 20 42 61 63 6b 20 69 63 |he Month| Back ic|
|00000a30| 6f 6e 2e 7c 4d 22 0d 03 | e8 3b 20 20 20 20 20 20 |on.|M"..|.;      |
|00000a40| 20 20 3a 20 74 65 78 74 | 24 2b 3d 22 43 6c 69 63 |  : text|$+="Clic|
|00000a50| 6b 20 53 45 4c 45 43 54 | 20 74 6f 20 6d 6f 76 65 |k SELECT| to move|
|00000a60| 20 62 61 63 6b 20 6f 6e | 65 20 6d 6f 6e 74 68 2e | back on|e month.|
|00000a70| 22 0d 03 f2 05 cb 0d 03 | fc 05 cb 0d 04 06 39 24 |".......|......9$|
|00000a80| 28 62 6c 6f 63 6b 2b 32 | 30 29 3d 74 65 78 74 24 |(block+2|0)=text$|
|00000a90| 20 3a 20 62 6c 6f 63 6b | 21 30 3d 28 28 28 32 30 | : block|!0=(((20|
|00000aa0| 2b a9 28 74 65 78 74 24 | 29 2b 31 29 81 34 29 2a |+.(text$|)+1).4)*|
|00000ab0| 34 29 2b 34 0d 04 10 1d | 24 28 62 6c 6f 63 6b 2b |4)+4....|$(block+|
|00000ac0| 32 31 2b a9 28 74 65 78 | 74 24 29 29 3d bd 28 30 |21+.(tex|t$))=.(0|
|00000ad0| 29 0d 04 1a 22 c8 99 20 | 22 57 69 6d 70 5f 53 65 |)...".. |"Wimp_Se|
|00000ae0| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 62 6c |ndMessag|e",17,bl|
|00000af0| 6f 63 6b 0d 04 24 05 e1 | 0d 04 2e 05 3a 0d 04 38 |ock..$..|....:..8|
|00000b00| 20 dd 20 f2 6f 70 65 6e | 57 69 6e 64 6f 77 28 68 | . .open|Window(h|
|00000b10| 61 6e 64 6c 65 25 2c 66 | 75 6c 6c 25 29 0d 04 42 |andle%,f|ull%)..B|
|00000b20| 13 62 6c 6f 63 6b 21 30 | 3d 68 61 6e 64 6c 65 25 |.block!0|=handle%|
|00000b30| 0d 04 4c 3e e7 20 ac 20 | 66 75 6c 6c 25 20 8c 20 |..L>. . |full% . |
|00000b40| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00000b50| 6f 77 53 74 61 74 65 22 | 2c 30 2c 62 6c 6f 63 6b |owState"|,0,block|
|00000b60| 20 3a 20 62 6c 6f 63 6b | 21 32 38 3d 2d 31 0d 04 | : block|!28=-1..|
|00000b70| 56 20 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |V .. "Wi|mp_OpenW|
|00000b80| 69 6e 64 6f 77 22 2c 30 | 2c 62 6c 6f 63 6b 0d 04 |indow",0|,block..|
|00000b90| 60 05 e1 0d 04 6a 05 3a | 0d 04 74 13 dd 20 f2 72 |`....j.:|..t.. .r|
|00000ba0| 65 64 72 61 77 57 69 6e | 64 6f 77 0d 04 7e 29 c8 |edrawWin|dow..~).|
|00000bb0| 99 20 22 57 69 6d 70 5f | 52 65 64 72 61 77 57 69 |. "Wimp_|RedrawWi|
|00000bc0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 20 b8 20 6d |ndow",,b|lock . m|
|00000bd0| 6f 72 65 25 0d 04 88 0c | c8 95 20 6d 6f 72 65 25 |ore%....|.. more%|
|00000be0| 0d 04 92 21 c8 99 20 22 | 57 69 6d 70 5f 42 6f 72 |...!.. "|Wimp_Bor|
|00000bf0| 64 65 72 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |derWindo|w",,bloc|
|00000c00| 6b 0d 04 9c 29 c8 99 20 | 22 57 69 6d 70 5f 47 65 |k...).. |"Wimp_Ge|
|00000c10| 74 52 65 63 74 61 6e 67 | 6c 65 22 2c 2c 62 6c 6f |tRectang|le",,blo|
|00000c20| 63 6b 20 b8 20 6d 6f 72 | 65 25 0d 04 a6 05 ce 0d |ck . mor|e%......|
|00000c30| 04 b0 05 e1 0d 04 ba 05 | 3a 0d 04 c4 1b dd 20 f2 |........|:..... .|
|00000c40| 63 6c 6f 73 65 57 69 6e | 64 6f 77 28 68 61 6e 64 |closeWin|dow(hand|
|00000c50| 6c 65 25 29 0d 04 ce 13 | 62 6c 6f 63 6b 21 30 3d |le%)....|block!0=|
|00000c60| 68 61 6e 64 6c 65 25 0d | 04 d8 21 c8 99 20 22 57 |handle%.|..!.. "W|
|00000c70| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00000c80| 2c 30 2c 62 6c 6f 63 6b | 0d 04 e2 05 e1 0d 04 ec |,0,block|........|
|00000c90| 05 3a 0d 04 f6 13 dd 20 | f2 63 68 65 63 6b 28 62 |.:..... |.check(b|
|00000ca0| 6c 6f 63 6b 29 0d 05 00 | 33 ea 20 6d 78 25 2c 6d |lock)...|3. mx%,m|
|00000cb0| 79 25 2c 73 78 25 2c 73 | 79 25 2c 78 30 25 2c 79 |y%,sx%,s|y%,x0%,y|
|00000cc0| 30 25 2c 62 75 74 74 6f | 6e 25 2c 68 61 6e 64 6c |0%,butto|n%,handl|
|00000cd0| 65 25 2c 69 63 6f 6e 25 | 0d 05 0a 1d 6d 78 25 3d |e%,icon%|....mx%=|
|00000ce0| 62 6c 6f 63 6b 21 30 20 | 3a 20 6d 79 25 3d 62 6c |block!0 |: my%=bl|
|00000cf0| 6f 63 6b 21 34 0d 05 14 | 37 62 75 74 74 6f 6e 25 |ock!4...|7button%|
|00000d00| 3d 62 6c 6f 63 6b 21 38 | 20 3a 20 68 61 6e 64 6c |=block!8| : handl|
|00000d10| 65 25 3d 62 6c 6f 63 6b | 21 31 32 20 3a 20 69 63 |e%=block|!12 : ic|
|00000d20| 6f 6e 25 3d 62 6c 6f 63 | 6b 21 31 36 0d 05 1e 26 |on%=bloc|k!16...&|
|00000d30| e7 20 62 75 74 74 6f 6e | 25 20 80 20 32 20 8c 20 |. button|% . 2 . |
|00000d40| f2 6d 65 6e 75 28 68 61 | 6e 64 6c 65 25 29 20 3a |.menu(ha|ndle%) :|
|00000d50| 20 e1 0d 05 28 1f e7 20 | 68 61 6e 64 6c 65 25 3d | ...(.. |handle%=|
|00000d60| 2d 32 20 80 20 69 63 6f | 6e 25 3d 49 63 6f 6e 20 |-2 . ico|n%=Icon |
|00000d70| 8c 0d 05 32 23 20 20 20 | 20 20 3a 20 f2 6f 70 65 |...2#   |  : .ope|
|00000d80| 6e 57 69 6e 64 6f 77 28 | 43 61 6c 65 6e 64 61 72 |nWindow(|Calendar|
|00000d90| 25 2c a3 29 0d 05 3c 1e | 20 20 20 20 20 3a 20 f2 |%,.)..<.|     : .|
|00000da0| 75 70 64 61 74 65 43 61 | 6c 65 6e 64 61 72 20 3a |updateCa|lendar :|
|00000db0| 20 e1 0d 05 46 05 cd 0d | 05 50 35 62 6c 6f 63 6b | ...F...|.P5block|
|00000dc0| 21 30 3d 68 61 6e 64 6c | 65 25 20 3a 20 c8 99 20 |!0=handl|e% : .. |
|00000dd0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 49 |"Wimp_Ge|tWindowI|
|00000de0| 6e 66 6f 22 2c 30 2c 62 | 6c 6f 63 6b 0d 05 5a 1d |nfo",0,b|lock..Z.|
|00000df0| 78 30 25 3d 62 6c 6f 63 | 6b 21 34 20 3a 20 79 30 |x0%=bloc|k!4 : y0|
|00000e00| 25 3d 62 6c 6f 63 6b 21 | 38 0d 05 64 1d 73 78 25 |%=block!|8..d.sx%|
|00000e10| 3d 6d 78 25 2d 78 30 25 | 20 3a 20 73 79 25 3d 6d |=mx%-x0%| : sy%=m|
|00000e20| 79 25 2d 79 30 25 0d 05 | 6e 38 e7 20 68 61 6e 64 |y%-y0%..|n8. hand|
|00000e30| 6c 65 25 3d 43 61 6c 65 | 6e 64 61 72 25 20 8c 20 |le%=Cale|ndar% . |
|00000e40| f2 63 61 6c 65 6e 64 61 | 72 53 65 6c 65 63 74 28 |.calenda|rSelect(|
|00000e50| 69 63 6f 6e 25 2c 62 75 | 74 74 6f 6e 25 29 0d 05 |icon%,bu|tton%)..|
|00000e60| 78 05 e1 0d 05 82 05 3a | 0d 05 8c 0f dd 20 f2 6d |x......:|..... .m|
|00000e70| 65 6e 75 28 68 25 29 0d | 05 96 0b c8 8e 20 68 25 |enu(h%).|..... h%|
|00000e80| 20 ca 0d 05 a0 1e c9 20 | 2d 32 20 20 20 20 20 20 | ...... |-2      |
|00000e90| 20 20 3a 20 f2 70 6f 70 | 28 4d 65 6e 75 4d 25 29 |  : .pop|(MenuM%)|
|00000ea0| 0d 05 aa 1e c9 20 43 61 | 6c 65 6e 64 61 72 25 20 |..... Ca|lendar% |
|00000eb0| 3a 20 f2 70 6f 70 28 4d | 61 69 6e 4d 25 29 0d 05 |: .pop(M|ainM%)..|
|00000ec0| b4 05 cb 0d 05 be 05 e1 | 0d 05 c8 05 3a 0d 05 d2 |........|....:...|
|00000ed0| 11 dd 20 f2 70 6f 70 28 | 6d 65 6e 75 25 29 0d 05 |.. .pop(|menu%)..|
|00000ee0| dc 11 e7 20 6d 65 6e 75 | 25 3c 30 20 8c 20 e1 0d |... menu|%<0 . ..|
|00000ef0| 05 e6 1c e7 20 6d 65 6e | 75 25 3d 4d 65 6e 75 4d |.... men|u%=MenuM|
|00000f00| 25 20 8c 20 6d 79 25 3d | 31 37 36 0d 05 f0 2d c8 |% . my%=|176...-.|
|00000f10| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00000f20| 6e 75 22 2c 2c 6d 65 6e | 75 25 2c 6d 78 25 2d 36 |nu",,men|u%,mx%-6|
|00000f30| 34 2c 6d 79 25 2b 33 32 | 0d 05 fa 10 6f 6d 65 6e |4,my%+32|....omen|
|00000f40| 75 25 3d 6d 65 6e 75 25 | 0d 06 04 05 e1 0d 06 0e |u%=menu%|........|
|00000f50| 05 3a 0d 06 18 18 dd 20 | f2 6d 65 6e 75 53 65 6c |.:..... |.menuSel|
|00000f60| 65 63 74 28 62 6c 6f 63 | 6b 29 0d 06 22 28 6d 31 |ect(bloc|k).."(m1|
|00000f70| 3d 62 6c 6f 63 6b 21 30 | 20 3a 20 6d 32 3d 62 6c |=block!0| : m2=bl|
|00000f80| 6f 63 6b 21 34 20 3a 20 | 6d 33 3d 62 6c 6f 63 6b |ock!4 : |m3=block|
|00000f90| 21 38 0d 06 2c 17 f4 20 | 6e 6f 74 20 77 6f 72 6b |!8..,.. |not work|
|00000fa0| 69 6e 67 20 2e 2e 2e 2e | 2e 0d 06 36 3b f4 20 53 |ing ....|...6;. S|
|00000fb0| 59 53 20 22 57 69 6d 70 | 5f 44 65 63 6f 64 65 4d |YS "Wimp|_DecodeM|
|00000fc0| 65 6e 75 22 2c 6f 6d 65 | 6e 75 25 2c 62 6c 6f 63 |enu",ome|nu%,bloc|
|00000fd0| 6b 2c 62 75 66 66 65 72 | 25 20 54 4f 20 2c 2c 6d |k,buffer|% TO ,,m|
|00000fe0| 65 6e 75 24 0d 06 40 0f | c8 8e 20 6f 6d 65 6e 75 |enu$..@.|.. omenu|
|00000ff0| 25 20 ca 0d 06 4a 16 c9 | 20 4d 65 6e 75 4d 25 20 |% ...J..| MenuM% |
|00001000| 3a 20 c8 8e 20 6d 31 20 | ca 0d 06 54 10 c9 20 31 |: .. m1 |...T.. 1|
|00001010| 20 3a 20 51 75 69 74 3d | b9 0d 06 5e 05 cb 0d 06 | : Quit=|...^....|
|00001020| 68 16 c9 20 4d 61 69 6e | 4d 25 20 3a 20 c8 8e 20 |h.. Main|M% : .. |
|00001030| 6d 31 20 ca 0d 06 72 14 | c9 20 30 20 3a 20 e7 20 |m1 ...r.|. 0 : . |
|00001040| 6d 32 3c 30 20 8c 20 e1 | 0d 06 7c 35 20 20 20 20 |m2<0 . .|..|5    |
|00001050| 20 20 20 3a 20 f2 6d 74 | 69 63 6b 28 46 6f 72 6d |   : .mt|ick(Form|
|00001060| 4d 25 2c 6d 32 29 20 3a | 20 4f 6d 69 25 3d 6d 32 |M%,m2) :| Omi%=m2|
|00001070| 20 3a 20 46 6f 72 6d 25 | 3d 6d 32 2b 31 0d 06 86 | : Form%|=m2+1...|
|00001080| 2a 20 20 20 20 20 20 20 | 3a 20 f2 75 70 64 61 74 |*       |: .updat|
|00001090| 65 44 61 79 73 20 3a 20 | f2 75 70 64 61 74 65 43 |eDays : |.updateC|
|000010a0| 61 6c 65 6e 64 61 72 0d | 06 90 19 c9 20 31 20 3a |alendar.|.... 1 :|
|000010b0| 20 f2 6d 6f 6e 74 68 28 | 59 25 2c 4d 25 2c 32 29 | .month(|Y%,M%,2)|
|000010c0| 0d 06 9a 05 cb 0d 06 a4 | 05 cb 0d 06 ae 0e e7 20 |........|....... |
|000010d0| 51 75 69 74 3d a3 20 8c | 0d 06 b8 2a 20 20 20 20 |Quit=. .|...*    |
|000010e0| 20 3a 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 | : .. "W|imp_GetP|
|000010f0| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 62 6c 6f |ointerIn|fo",,blo|
|00001100| 63 6b 0d 06 c2 25 20 20 | 20 20 20 3a 20 e7 20 62 |ck...%  |   : . b|
|00001110| 6c 6f 63 6b 21 38 3d 31 | 20 8c 20 f2 70 6f 70 28 |lock!8=1| . .pop(|
|00001120| 6f 6d 65 6e 75 25 29 0d | 06 cc 05 cd 0d 06 d6 05 |omenu%).|........|
|00001130| e1 0d 06 e0 05 3a 0d 06 | ea 14 dd 20 f2 73 68 61 |.....:..|... .sha|
|00001140| 64 65 28 6d 25 2c 6d 69 | 25 29 0d 06 f4 2f 6d 25 |de(m%,mi|%).../m%|
|00001150| 21 28 32 38 2b 38 2b 32 | 34 2a 6d 69 25 29 3d 6d |!(28+8+2|4*mi%)=m|
|00001160| 25 21 28 32 38 2b 38 2b | 32 34 2a 6d 69 25 29 20 |%!(28+8+|24*mi%) |
|00001170| 84 20 26 34 30 30 30 30 | 30 0d 06 fe 05 e1 0d 07 |. &40000|0.......|
|00001180| 08 05 3a 0d 07 12 14 dd | 20 f2 6d 74 69 63 6b 28 |..:.....| .mtick(|
|00001190| 6d 25 2c 6d 69 25 29 0d | 07 1c 35 e7 20 4f 6d 69 |m%,mi%).|..5. Omi|
|000011a0| 25 3e 2d 31 20 8c 20 6d | 25 21 28 32 38 2b 32 34 |%>-1 . m|%!(28+24|
|000011b0| 2a 4f 6d 69 25 29 3d 6d | 25 21 28 32 38 2b 32 34 |*Omi%)=m|%!(28+24|
|000011c0| 2a 4f 6d 69 25 29 20 82 | 20 26 30 31 0d 07 26 27 |*Omi%) .| &01..&'|
|000011d0| 6d 25 21 28 32 38 2b 32 | 34 2a 6d 69 25 29 3d 6d |m%!(28+2|4*mi%)=m|
|000011e0| 25 21 28 32 38 2b 32 34 | 2a 6d 69 25 29 20 84 20 |%!(28+24|*mi%) . |
|000011f0| 26 30 31 0d 07 30 05 e1 | 0d 07 3a 05 3a 0d 07 44 |&01..0..|..:.:..D|
|00001200| 10 dd 20 f2 63 6c 6f 73 | 65 4d 65 6e 75 0d 07 4e |.. .clos|eMenu..N|
|00001210| 1b c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |... "Wim|p_Create|
|00001220| 4d 65 6e 75 22 2c 2d 31 | 0d 07 58 2e f2 63 6c 6f |Menu",-1|..X..clo|
|00001230| 73 65 57 69 6e 64 6f 77 | 28 53 61 76 65 25 29 20 |seWindow|(Save%) |
|00001240| 3a 20 f2 63 6c 6f 73 65 | 57 69 6e 64 6f 77 28 53 |: .close|Window(S|
|00001250| 61 76 65 32 25 29 0d 07 | 62 30 f2 63 6c 6f 73 65 |ave2%)..|b0.close|
|00001260| 57 69 6e 64 6f 77 28 49 | 6e 66 6f 25 29 20 3a 20 |Window(I|nfo%) : |
|00001270| f2 63 6c 6f 73 65 57 69 | 6e 64 6f 77 28 4f 70 74 |.closeWi|ndow(Opt|
|00001280| 69 6f 6e 73 25 29 0d 07 | 6c 19 f2 63 6c 6f 73 65 |ions%)..|l..close|
|00001290| 57 69 6e 64 6f 77 28 53 | 65 61 72 63 68 25 29 0d |Window(S|earch%).|
|000012a0| 07 76 05 e1 0d 07 80 05 | 3a 0d 07 8a 21 dd 20 f2 |.v......|:...!. .|
|000012b0| 67 65 74 49 63 6f 6e 49 | 6e 66 6f 28 68 61 6e 64 |getIconI|nfo(hand|
|000012c0| 6c 65 25 2c 69 63 6f 6e | 25 29 0d 07 94 23 62 6c |le%,icon|%)...#bl|
|000012d0| 6f 63 6b 21 30 3d 68 61 | 6e 64 6c 65 25 20 3a 20 |ock!0=ha|ndle% : |
|000012e0| 62 6c 6f 63 6b 21 34 3d | 69 63 6f 6e 25 0d 07 9e |block!4=|icon%...|
|000012f0| 21 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |!.. "Wim|p_GetIco|
|00001300| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 0d 07 |nState",|,block..|
|00001310| a8 40 69 78 30 25 3d 62 | 6c 6f 63 6b 21 38 20 3a |.@ix0%=b|lock!8 :|
|00001320| 20 69 79 30 25 3d 62 6c | 6f 63 6b 21 31 32 20 3a | iy0%=bl|ock!12 :|
|00001330| 20 69 78 31 25 3d 62 6c | 6f 63 6b 21 31 36 20 3a | ix1%=bl|ock!16 :|
|00001340| 20 69 79 31 25 3d 62 6c | 6f 63 6b 21 32 30 0d 07 | iy1%=bl|ock!20..|
|00001350| b2 13 66 6c 61 67 73 25 | 3d 62 6c 6f 63 6b 21 32 |..flags%|=block!2|
|00001360| 34 0d 07 bc 19 e7 20 28 | 66 6c 61 67 73 25 20 80 |4..... (|flags% .|
|00001370| 20 26 31 30 30 29 3e 30 | 20 8c 0d 07 c6 1a 20 20 | &100)>0| .....  |
|00001380| 20 20 20 3a 20 64 61 74 | 61 24 3d 24 62 6c 6f 63 |   : dat|a$=$bloc|
|00001390| 6b 21 32 38 0d 07 d0 19 | cc 20 3a 20 64 61 74 61 |k!28....|. : data|
|000013a0| 24 3d 24 28 62 6c 6f 63 | 6b 2b 32 38 29 0d 07 da |$=$(bloc|k+28)...|
|000013b0| 05 cd 0d 07 e4 05 e1 0d | 07 ee 05 3a 0d 07 f8 25 |........|...:...%|
|000013c0| dd 20 f2 69 6e 64 69 72 | 49 63 6f 6e 28 68 61 6e |. .indir|Icon(han|
|000013d0| 64 6c 65 25 2c 69 63 6f | 6e 25 2c 74 65 78 74 24 |dle%,ico|n%,text$|
|000013e0| 29 0d 08 02 1f f2 67 65 | 74 49 63 6f 6e 49 6e 66 |).....ge|tIconInf|
|000013f0| 6f 28 68 61 6e 64 6c 65 | 25 2c 69 63 6f 6e 25 29 |o(handle|%,icon%)|
|00001400| 0d 08 0c 13 24 62 6c 6f | 63 6b 21 32 38 3d 74 65 |....$blo|ck!28=te|
|00001410| 78 74 24 0d 08 16 1f f2 | 73 65 74 49 63 6f 6e 28 |xt$.....|setIcon(|
|00001420| 68 61 6e 64 6c 65 25 2c | 69 63 6f 6e 25 2c 30 2c |handle%,|icon%,0,|
|00001430| 30 29 0d 08 20 05 e1 0d | 08 2a 05 3a 0d 08 34 28 |0).. ...|.*.:..4(|
|00001440| dd 20 f2 73 65 74 49 63 | 6f 6e 28 68 61 6e 64 6c |. .setIc|on(handl|
|00001450| 65 25 2c 69 63 6f 6e 25 | 2c 65 6f 72 25 2c 6d 61 |e%,icon%|,eor%,ma|
|00001460| 73 6b 25 29 0d 08 3e 22 | 21 62 6c 6f 63 6b 3d 68 |sk%)..>"|!block=h|
|00001470| 61 6e 64 6c 65 25 20 3a | 20 62 6c 6f 63 6b 21 34 |andle% :| block!4|
|00001480| 3d 69 63 6f 6e 25 0d 08 | 48 23 62 6c 6f 63 6b 21 |=icon%..|H#block!|
|00001490| 38 3d 65 6f 72 25 20 20 | 20 3a 20 62 6c 6f 63 6b |8=eor%  | : block|
|000014a0| 21 31 32 3d 6d 61 73 6b | 25 0d 08 52 21 c8 99 20 |!12=mask|%..R!.. |
|000014b0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|000014c0| 74 65 22 2c 2c 62 6c 6f | 63 6b 0d 08 5c 05 e1 0d |te",,blo|ck..\...|
|000014d0| 08 66 05 3a 0d 08 70 11 | dd 20 f2 75 70 64 61 74 |.f.:..p.|. .updat|
|000014e0| 65 44 61 79 73 0d 08 7a | 0f e7 20 46 6f 72 6d 25 |eDays..z|.. Form%|
|000014f0| 3d 31 20 8c 0d 08 84 3f | 20 20 20 20 20 3a 20 e3 |=1 ....?|     : .|
|00001500| 20 61 25 3d 31 20 b8 20 | 37 20 3a 20 f2 69 6e 64 | a%=1 . |7 : .ind|
|00001510| 69 72 49 63 6f 6e 28 43 | 61 6c 65 6e 64 61 72 25 |irIcon(C|alendar%|
|00001520| 2c 61 25 2b 32 2c 64 61 | 79 24 28 61 25 29 29 20 |,a%+2,da|y$(a%)) |
|00001530| 3a 20 ed 0d 08 8e 2c 20 | 20 20 20 20 3a 20 f2 73 |: ...., |    : .s|
|00001540| 65 74 49 63 6f 6e 28 43 | 61 6c 65 6e 64 61 72 25 |etIcon(C|alendar%|
|00001550| 2c 33 2c 26 30 2c 26 46 | 30 30 30 30 30 30 29 0d |,3,&0,&F|000000).|
|00001560| 08 98 32 20 20 20 20 20 | 3a 20 f2 73 65 74 49 63 |..2     |: .setIc|
|00001570| 6f 6e 28 43 61 6c 65 6e | 64 61 72 25 2c 33 2c 26 |on(Calen|dar%,3,&|
|00001580| 35 30 30 30 30 30 30 2c | 26 46 30 30 30 30 30 30 |5000000,|&F000000|
|00001590| 29 0d 08 a2 2c 20 20 20 | 20 20 3a 20 f2 73 65 74 |)...,   |  : .set|
|000015a0| 49 63 6f 6e 28 43 61 6c | 65 6e 64 61 72 25 2c 38 |Icon(Cal|endar%,8|
|000015b0| 2c 26 30 2c 26 46 30 30 | 30 30 30 30 29 0d 08 ac |,&0,&F00|0000)...|
|000015c0| 32 20 20 20 20 20 3a 20 | f2 73 65 74 49 63 6f 6e |2     : |.setIcon|
|000015d0| 28 43 61 6c 65 6e 64 61 | 72 25 2c 38 2c 26 42 30 |(Calenda|r%,8,&B0|
|000015e0| 30 30 30 30 30 2c 26 46 | 30 30 30 30 30 30 29 0d |00000,&F|000000).|
|000015f0| 08 b6 3c cc 20 3a 20 e3 | 20 61 25 3d 30 20 b8 20 |..<. : .| a%=0 . |
|00001600| 36 20 3a 20 f2 69 6e 64 | 69 72 49 63 6f 6e 28 43 |6 : .ind|irIcon(C|
|00001610| 61 6c 65 6e 64 61 72 25 | 2c 61 25 2b 33 2c 64 61 |alendar%|,a%+3,da|
|00001620| 79 24 28 61 25 29 29 20 | 3a 20 ed 0d 08 c0 2c 20 |y$(a%)) |: ...., |
|00001630| 20 20 20 20 3a 20 f2 73 | 65 74 49 63 6f 6e 28 43 |    : .s|etIcon(C|
|00001640| 61 6c 65 6e 64 61 72 25 | 2c 33 2c 26 30 2c 26 46 |alendar%|,3,&0,&F|
|00001650| 30 30 30 30 30 30 29 0d | 08 ca 32 20 20 20 20 20 |000000).|..2     |
|00001660| 3a 20 f2 73 65 74 49 63 | 6f 6e 28 43 61 6c 65 6e |: .setIc|on(Calen|
|00001670| 64 61 72 25 2c 33 2c 26 | 42 30 30 30 30 30 30 2c |dar%,3,&|B000000,|
|00001680| 26 46 30 30 30 30 30 30 | 29 0d 08 d4 2c 20 20 20 |&F000000|)...,   |
|00001690| 20 20 3a 20 f2 73 65 74 | 49 63 6f 6e 28 43 61 6c |  : .set|Icon(Cal|
|000016a0| 65 6e 64 61 72 25 2c 38 | 2c 26 30 2c 26 46 30 30 |endar%,8|,&0,&F00|
|000016b0| 30 30 30 30 29 0d 08 de | 32 20 20 20 20 20 3a 20 |0000)...|2     : |
|000016c0| f2 73 65 74 49 63 6f 6e | 28 43 61 6c 65 6e 64 61 |.setIcon|(Calenda|
|000016d0| 72 25 2c 38 2c 26 35 30 | 30 30 30 30 30 2c 26 46 |r%,8,&50|00000,&F|
|000016e0| 30 30 30 30 30 30 29 0d | 08 e8 05 cd 0d 08 f2 05 |000000).|........|
|000016f0| e1 0d 08 fc 05 3a 0d 09 | 06 15 dd 20 f2 75 70 64 |.....:..|... .upd|
|00001700| 61 74 65 43 61 6c 65 6e | 64 61 72 0d 09 10 13 f2 |ateCalen|dar.....|
|00001710| 6d 6f 6e 74 68 28 59 25 | 2c 4d 25 2c 31 29 0d 09 |month(Y%|,M%,1)..|
|00001720| 1a 40 f2 69 6e 64 69 72 | 49 63 6f 6e 28 43 61 6c |.@.indir|Icon(Cal|
|00001730| 65 6e 64 61 72 25 2c 31 | 30 2c 4d 24 29 20 3a 20 |endar%,1|0,M$) : |
|00001740| f2 69 6e 64 69 72 49 63 | 6f 6e 28 43 61 6c 65 6e |.indirIc|on(Calen|
|00001750| 64 61 72 25 2c 32 30 2c | 59 65 61 72 24 29 0d 09 |dar%,20,|Year$)..|
|00001760| 24 37 e3 20 61 25 3d 31 | 20 b8 20 37 20 3a 20 f2 |$7. a%=1| . 7 : .|
|00001770| 69 6e 64 69 72 49 63 6f | 6e 28 43 61 6c 65 6e 64 |indirIco|n(Calend|
|00001780| 61 72 25 2c 61 25 2b 31 | 30 2c 41 24 28 61 25 29 |ar%,a%+1|0,A$(a%)|
|00001790| 29 20 3a 20 ed 0d 09 2e | 05 e1 0d 09 38 05 3a 0d |) : ....|....8.:.|
|000017a0| 09 42 1c dd 20 f2 63 61 | 6c 65 6e 64 61 72 53 65 |.B.. .ca|lendarSe|
|000017b0| 6c 65 63 74 28 69 25 2c | 62 25 29 0d 09 4c 17 e7 |lect(i%,|b%)..L..|
|000017c0| 20 69 25 3c 32 31 20 84 | 20 69 25 3e 32 32 20 8c | i%<21 .| i%>22 .|
|000017d0| 20 e1 0d 09 56 0b c8 8e | 20 69 25 20 ca 0d 09 60 | ...V...| i% ...`|
|000017e0| 32 c9 20 32 32 20 3a 20 | e7 20 62 25 3d 34 20 8c |2. 22 : |. b%=4 .|
|000017f0| 20 4d 25 2d 3d 31 20 3a | 20 e7 20 4d 25 3c 31 20 | M%-=1 :| . M%<1 |
|00001800| 8c 20 4d 25 3d 31 32 20 | 3a 20 59 25 2d 3d 31 0d |. M%=12 |: Y%-=1.|
|00001810| 09 6a 35 20 20 20 20 20 | 20 20 20 3a 20 e7 20 62 |.j5     |   : . b|
|00001820| 25 3d 31 20 8c 20 4d 25 | 2b 3d 31 20 3a 20 e7 20 |%=1 . M%|+=1 : . |
|00001830| 4d 25 3e 31 32 20 8c 20 | 4d 25 3d 31 20 3a 20 59 |M%>12 . |M%=1 : Y|
|00001840| 25 2b 3d 31 0d 09 74 32 | c9 20 32 31 20 3a 20 e7 |%+=1..t2|. 21 : .|
|00001850| 20 62 25 3d 34 20 8c 20 | 4d 25 2b 3d 31 20 3a 20 | b%=4 . |M%+=1 : |
|00001860| e7 20 4d 25 3e 31 32 20 | 8c 20 4d 25 3d 31 20 3a |. M%>12 |. M%=1 :|
|00001870| 20 59 25 2b 3d 31 0d 09 | 7e 35 20 20 20 20 20 20 | Y%+=1..|~5      |
|00001880| 20 20 3a 20 e7 20 62 25 | 3d 31 20 8c 20 4d 25 2d |  : . b%|=1 . M%-|
|00001890| 3d 31 20 3a 20 e7 20 4d | 25 3c 31 20 8c 20 4d 25 |=1 : . M|%<1 . M%|
|000018a0| 3d 31 32 20 3a 20 59 25 | 2d 3d 31 0d 09 88 05 cb |=12 : Y%|-=1.....|
|000018b0| 0d 09 92 13 f2 75 70 64 | 61 74 65 43 61 6c 65 6e |.....upd|ateCalen|
|000018c0| 64 61 72 0d 09 9c 05 e1 | 0d 09 a6 05 3a 0d 09 b0 |dar.....|....:...|
|000018d0| 15 dd 20 a4 63 72 65 61 | 74 65 4d 65 6e 75 28 6d |.. .crea|teMenu(m|
|000018e0| 24 29 0d 09 ba 12 70 74 | 72 25 3d 6d 65 6e 75 66 |$)....pt|r%=menuf|
|000018f0| 72 65 65 25 0d 09 c4 08 | 69 25 3d 30 0d 09 ce 12 |ree%....|i%=0....|
|00001900| e7 20 c0 6d 24 2c 31 29 | 3d 22 23 22 20 8c 0d 09 |. .m$,1)|="#" ...|
|00001910| d8 28 20 20 20 20 20 3a | 20 69 25 3d 31 20 3a 20 |.(     :| i%=1 : |
|00001920| 74 69 74 6c 65 24 3d a4 | 70 61 72 28 6d 24 2c 22 |title$=.|par(m$,"|
|00001930| 2c 22 2c 69 25 29 0d 09 | e2 11 cc 20 3a 20 74 69 |,",i%)..|... : ti|
|00001940| 74 6c 65 24 3d 22 22 0d | 09 ec 05 cd 0d 09 f6 10 |tle$="".|........|
|00001950| 24 70 74 72 25 3d 74 69 | 74 6c 65 24 0d 0a 00 31 |$ptr%=ti|tle$...1|
|00001960| 70 74 72 25 3f 31 32 3d | 37 20 3a 20 70 74 72 25 |ptr%?12=|7 : ptr%|
|00001970| 3f 31 33 3d 32 20 3a 20 | 70 74 72 25 3f 31 34 3d |?13=2 : |ptr%?14=|
|00001980| 37 20 3a 20 70 74 72 25 | 3f 31 35 3d 30 0d 0a 0a |7 : ptr%|?15=0...|
|00001990| 2b 70 74 72 25 21 31 36 | 3d 31 39 36 2d 32 34 20 |+ptr%!16|=196-24 |
|000019a0| 3a 20 70 74 72 25 21 32 | 30 3d 34 34 20 3a 20 70 |: ptr%!2|0=44 : p|
|000019b0| 74 72 25 21 32 34 3d 30 | 0d 0a 14 1d 70 74 72 25 |tr%!24=0|....ptr%|
|000019c0| 2b 3d 32 38 20 3a 20 6d | 61 78 78 25 3d a9 20 74 |+=28 : m|axx%=. t|
|000019d0| 69 74 6c 65 24 0d 0a 1e | 05 f5 0d 0a 28 2c 69 74 |itle$...|....(,it|
|000019e0| 65 6d 24 3d a4 70 61 72 | 28 6d 24 2c 22 2c 22 2c |em$=.par|(m$,",",|
|000019f0| 69 25 29 20 3a 20 f2 6d | 65 6e 75 49 74 65 6d 28 |i%) : .m|enuItem(|
|00001a00| 69 74 65 6d 24 29 0d 0a | 32 0e fd 20 69 74 65 6d |item$)..|2.. item|
|00001a10| 24 3d 22 22 0d 0a 3c 26 | 6d 25 3d 6d 65 6e 75 66 |$=""..<&|m%=menuf|
|00001a20| 72 65 65 25 20 3a 20 6d | 25 21 31 36 3d 28 6d 61 |ree% : m|%!16=(ma|
|00001a30| 78 78 25 2a 38 2b 36 29 | 2a 32 0d 0a 46 12 6d 65 |xx%*8+6)|*2..F.me|
|00001a40| 6e 75 66 72 65 65 25 3d | 70 74 72 25 0d 0a 50 07 |nufree%=|ptr%..P.|
|00001a50| 3d 6d 25 0d 0a 5a 05 3a | 0d 0a 64 16 dd 20 f2 6d |=m%..Z.:|..d.. .m|
|00001a60| 65 6e 75 49 74 65 6d 28 | 74 65 78 74 24 29 0d 0a |enuItem(|text$)..|
|00001a70| 6e 2e e7 20 74 65 78 74 | 24 3d 22 22 20 8c 20 70 |n.. text|$="" . p|
|00001a80| 74 72 25 21 2d 32 34 3d | 28 70 74 72 25 21 2d 32 |tr%!-24=|(ptr%!-2|
|00001a90| 34 29 20 84 20 26 38 30 | 20 3a 20 e1 0d 0a 78 0e |4) . &80| : ...x.|
|00001aa0| ea 20 69 25 2c 66 6c 61 | 67 25 0d 0a 82 1e 66 6c |. i%,fla|g%....fl|
|00001ab0| 61 67 25 3d 26 30 30 20 | 3a 20 69 25 3d a7 74 65 |ag%=&00 |: i%=.te|
|00001ac0| 78 74 24 2c 22 3e 22 29 | 0d 0a 8c 0c e7 20 69 25 |xt$,">")|..... i%|
|00001ad0| 3e 30 20 8c 0d 0a 96 35 | 20 20 20 20 20 3a 20 73 |>0 ....5|     : s|
|00001ae0| 75 62 70 74 72 25 3d a0 | c1 74 65 78 74 24 2c 69 |ubptr%=.|.text$,i|
|00001af0| 25 2b 31 29 20 3a 20 74 | 65 78 74 24 3d c0 74 65 |%+1) : t|ext$=.te|
|00001b00| 78 74 24 2c 69 25 2d 31 | 29 0d 0a a0 12 cc 20 3a |xt$,i%-1|)..... :|
|00001b10| 20 73 75 62 70 74 72 25 | 3d 2d 31 0d 0a aa 05 cd | subptr%|=-1.....|
|00001b20| 0d 0a b4 12 69 25 3d a7 | 74 65 78 74 24 2c 22 7d |....i%=.|text$,"}|
|00001b30| 22 29 0d 0a be 0c e7 20 | 69 25 3e 30 20 8c 0d 0a |")..... |i%>0 ...|
|00001b40| c8 35 20 20 20 20 20 3a | 20 73 75 62 70 74 72 25 |.5     :| subptr%|
|00001b50| 3d a0 c1 74 65 78 74 24 | 2c 69 25 2b 31 29 20 3a |=..text$|,i%+1) :|
|00001b60| 20 74 65 78 74 24 3d c0 | 74 65 78 74 24 2c 69 25 | text$=.|text$,i%|
|00001b70| 2d 31 29 0d 0a d2 15 20 | 20 20 20 20 3a 20 66 6c |-1).... |    : fl|
|00001b80| 61 67 25 2b 3d 26 30 38 | 0d 0a dc 05 cd 0d 0a e6 |ag%+=&08|........|
|00001b90| 30 e7 20 c2 74 65 78 74 | 24 2c 31 29 3d 22 23 22 |0. .text|$,1)="#"|
|00001ba0| 20 8c 20 74 65 78 74 24 | 3d c0 74 65 78 74 24 29 | . text$|=.text$)|
|00001bb0| 20 3a 20 66 6c 61 67 25 | 2b 3d 26 30 32 0d 0a f0 | : flag%|+=&02...|
|00001bc0| 34 70 74 72 25 21 30 3d | 66 6c 61 67 25 20 3a 20 |4ptr%!0=|flag% : |
|00001bd0| 70 74 72 25 21 34 3d 73 | 75 62 70 74 72 25 20 3a |ptr%!4=s|ubptr% :|
|00001be0| 20 70 74 72 25 21 38 3d | 26 30 37 30 30 30 30 32 | ptr%!8=|&0700002|
|00001bf0| 31 0d 0a fa 15 e7 20 c0 | 74 65 78 74 24 2c 31 29 |1..... .|text$,1)|
|00001c00| 3d 22 24 22 20 8c 0d 0b | 04 35 20 20 20 20 20 3a |="$" ...|.5     :|
|00001c10| 20 21 70 74 72 25 2b 3d | 26 30 34 20 3a 20 70 74 | !ptr%+=|&04 : pt|
|00001c20| 72 25 21 38 2b 3d 26 31 | 30 30 20 3a 20 69 25 3d |r%!8+=&1|00 : i%=|
|00001c30| a7 74 65 78 74 24 2c 22 | 28 22 29 0d 0b 0e 13 20 |.text$,"|(").... |
|00001c40| 20 20 20 20 3a 20 e7 20 | 69 25 3e 30 20 8c 0d 0b |    : . |i%>0 ...|
|00001c50| 18 30 20 20 20 20 20 3a | 20 4c 25 3d bb c1 74 65 |.0     :| L%=..te|
|00001c60| 78 74 24 2c 69 25 2b 31 | 29 20 3a 20 74 65 78 74 |xt$,i%+1|) : text|
|00001c70| 24 3d c0 74 65 78 74 24 | 2c 69 25 2d 31 29 0d 0b |$=.text$|,i%-1)..|
|00001c80| 22 0d cc 20 3a 20 4c 25 | 3d 31 32 0d 0b 2c 05 cd |".. : L%|=12..,..|
|00001c90| 0d 0b 36 37 20 20 20 20 | 20 3a 20 70 74 72 25 21 |..67    | : ptr%!|
|00001ca0| 31 32 3d a0 c1 74 65 78 | 74 24 2c 32 29 20 3a 20 |12=..tex|t$,2) : |
|00001cb0| 70 74 72 25 21 31 36 3d | 2d 31 20 3a 20 70 74 72 |ptr%!16=|-1 : ptr|
|00001cc0| 25 21 32 30 3d 4c 25 0d | 0b 40 19 20 20 20 20 20 |%!20=L%.|.@.     |
|00001cd0| 3a 20 74 65 78 74 24 3d | c4 4c 25 2c 22 20 22 29 |: text$=|.L%," ")|
|00001ce0| 0d 0b 4a 16 cc 20 3a 20 | e7 20 a9 74 65 78 74 24 |..J.. : |. .text$|
|00001cf0| 3c 3d 31 32 20 8c 0d 0b | 54 1b 20 20 20 20 20 3a |<=12 ...|T.     :|
|00001d00| 20 24 28 70 74 72 25 2b | 31 32 29 3d 74 65 78 74 | $(ptr%+|12)=text|
|00001d10| 24 0d 0b 5e 28 cc 20 3a | 20 49 25 3d a4 77 6f 72 |$..^(. :| I%=.wor|
|00001d20| 6b 73 70 28 a9 74 65 78 | 74 24 2b 31 29 20 3a 20 |ksp(.tex|t$+1) : |
|00001d30| 24 49 25 3d 74 65 78 74 | 24 0d 0b 68 35 20 20 20 |$I%=text|$..h5   |
|00001d40| 20 20 3a 20 70 74 72 25 | 21 31 32 3d 49 25 20 3a |  : ptr%|!12=I% :|
|00001d50| 20 70 74 72 25 21 31 36 | 3d 2d 31 20 3a 20 70 74 | ptr%!16|=-1 : pt|
|00001d60| 72 25 21 32 30 3d a9 74 | 65 78 74 24 2b 31 0d 0b |r%!20=.t|ext$+1..|
|00001d70| 72 1f 20 20 20 20 20 3a | 20 70 74 72 25 21 38 3d |r.     :| ptr%!8=|
|00001d80| 70 74 72 25 21 38 20 84 | 20 26 31 30 30 0d 0b 7c |ptr%!8 .| &100..||
|00001d90| 05 cd 0d 0b 86 40 20 20 | 20 20 20 3a 20 e7 20 a9 |.....@  |   : . .|
|00001da0| 74 65 78 74 24 2d 28 73 | 75 62 70 74 72 25 3e 30 |text$-(s|ubptr%>0|
|00001db0| 29 3e 6d 61 78 78 25 20 | 8c 20 6d 61 78 78 25 3d |)>maxx% |. maxx%=|
|00001dc0| a9 74 65 78 74 24 2d 28 | 73 75 62 70 74 72 25 3e |.text$-(|subptr%>|
|00001dd0| 30 29 0d 0b 90 05 cd 0d | 0b 9a 0c 70 74 72 25 2b |0)......|...ptr%+|
|00001de0| 3d 32 34 0d 0b a4 05 e1 | 0d 0b ae 05 3a 0d 0b b8 |=24.....|....:...|
|00001df0| 11 dd 20 a4 77 6f 72 6b | 73 70 28 4c 25 29 0d 0b |.. .work|sp(L%)..|
|00001e00| c2 0f 62 75 66 66 65 72 | 25 2b 3d 4c 25 0d 0b cc |..buffer|%+=L%...|
|00001e10| 0f 3d 62 75 66 66 65 72 | 25 2d 4c 25 0d 0b d6 05 |.=buffer|%-L%....|
|00001e20| 3a 0d 0b e0 16 dd 20 a4 | 70 61 72 28 74 24 2c 73 |:..... .|par(t$,s|
|00001e30| 24 2c f8 20 69 25 29 0d | 0b ea 1e 61 25 3d 69 25 |$,. i%).|...a%=i%|
|00001e40| 2b 31 20 3a 20 69 25 3d | a7 74 24 2b 73 24 2c 73 |+1 : i%=|.t$+s$,s|
|00001e50| 24 2c 61 25 29 0d 0b f4 | 12 3d c1 74 24 2c 61 25 |$,a%)...|.=.t$,a%|
|00001e60| 2c 69 25 2d 61 25 29 0d | 0b fe 05 3a 0d 0c 08 0e |,i%-a%).|...:....|
|00001e70| dd 20 a4 69 63 6f 6e 62 | 61 72 0d 0c 12 0b ea 20 |. .iconb|ar..... |
|00001e80| 64 61 74 61 24 0d 0c 1c | 25 21 62 6c 6f 63 6b 3d |data$...|%!block=|
|00001e90| 2d 31 20 3a 20 62 6c 6f | 63 6b 21 34 3d 30 20 3a |-1 : blo|ck!4=0 :|
|00001ea0| 20 62 6c 6f 63 6b 21 38 | 3d 30 0d 0c 26 2e 62 6c | block!8|=0..&.bl|
|00001eb0| 6f 63 6b 21 31 32 3d 36 | 38 20 3a 20 62 6c 6f 63 |ock!12=6|8 : bloc|
|00001ec0| 6b 21 31 36 3d 36 38 20 | 3a 20 62 6c 6f 63 6b 21 |k!16=68 |: block!|
|00001ed0| 32 30 3d 26 33 31 30 32 | 0d 0c 30 15 64 61 74 61 |20=&3102|..0.data|
|00001ee0| 24 3d 22 21 63 61 6c 65 | 6e 64 61 72 22 0d 0c 3a |$="!cale|ndar"..:|
|00001ef0| 2e de 20 62 6c 6f 63 6b | 21 32 34 20 28 a9 20 64 |.. block|!24 (. d|
|00001f00| 61 74 61 24 2b 31 29 20 | 3a 20 24 28 62 6c 6f 63 |ata$+1) |: $(bloc|
|00001f10| 6b 21 32 34 29 3d 64 61 | 74 61 24 0d 0c 44 23 62 |k!24)=da|ta$..D#b|
|00001f20| 6c 6f 63 6b 21 32 38 3d | 31 20 3a 20 62 6c 6f 63 |lock!28=|1 : bloc|
|00001f30| 6b 21 33 32 3d a9 20 64 | 61 74 61 24 2b 31 0d 0c |k!32=. d|ata$+1..|
|00001f40| 4e 27 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |N'.. "Wi|mp_Creat|
|00001f50| 65 49 63 6f 6e 22 2c 2c | 62 6c 6f 63 6b 20 b8 20 |eIcon",,|block . |
|00001f60| 69 63 6f 6e 25 0d 0c 58 | 0a 3d 69 63 6f 6e 25 0d |icon%..X|.=icon%.|
|00001f70| 0c 62 05 3a 0d 0c 6c 0e | dd 20 a4 70 72 69 6e 74 |.b.:..l.|. .print|
|00001f80| 65 72 0d 0c 76 15 69 73 | 69 7a 65 3d 96 28 2d 34 |er..v.is|ize=.(-4|
|00001f90| 29 20 3a 20 ef 20 32 0d | 0c 80 29 ef 20 31 2c 30 |) : . 2.|..). 1,0|
|00001fa0| 2c 31 2c 30 2c 31 2c 30 | 2c 31 2c 30 2c 31 2c 30 |,1,0,1,0|,1,0,1,0|
|00001fb0| 2c 31 2c 30 2c 31 2c 30 | 2c 31 2c 30 2c 31 2c 30 |,1,0,1,0|,1,0,1,0|
|00001fc0| 0d 0c 8a 13 ef 20 33 20 | 3a 20 77 61 69 74 3d a6 |..... 3 |: wait=.|
|00001fd0| 28 35 29 0d 0c 94 0f 6a | 73 69 7a 65 3d 96 28 2d |(5)....j|size=.(-|
|00001fe0| 34 29 0d 0c 9e 12 3d 28 | 69 73 69 7a 65 3d 6a 73 |4)....=(|isize=js|
|00001ff0| 69 7a 65 29 0d 0c a8 05 | 3a 0d 0c b2 11 dd 20 f2 |ize)....|:..... .|
|00002000| 6c 6f 63 61 6c 45 72 72 | 6f 72 0d 0c bc 19 c8 99 |localErr|or......|
|00002010| 20 22 57 69 6d 70 5f 44 | 72 61 67 42 6f 78 22 2c | "Wimp_D|ragBox",|
|00002020| 2c 2d 31 0d 0c c6 26 21 | 62 6c 6f 63 6b 3d 9f 20 |,-1...&!|block=. |
|00002030| 3a 20 24 28 62 6c 6f 63 | 6b 2b 34 29 3d 45 72 72 |: $(bloc|k+4)=Err|
|00002040| 6f 72 4d 73 67 24 2b bd | 30 0d 0c d0 2c c8 99 20 |orMsg$+.|0...,.. |
|00002050| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00002060| 72 22 2c 62 6c 6f 63 6b | 2c 31 2c 22 43 61 6c 65 |r",block|,1,"Cale|
|00002070| 6e 64 61 72 22 0d 0c da | 05 e1 0d 0c e4 05 3a 0d |ndar"...|......:.|
|00002080| 0c ee 0c dd 20 f2 65 72 | 72 6f 72 0d 0c f8 19 c8 |.... .er|ror.....|
|00002090| 99 20 22 57 69 6d 70 5f | 44 72 61 67 42 6f 78 22 |. "Wimp_|DragBox"|
|000020a0| 2c 2c 2d 31 0d 0d 02 2e | 21 62 6c 6f 63 6b 3d 9f |,,-1....|!block=.|
|000020b0| 20 3a 20 24 28 62 6c 6f | 63 6b 2b 34 29 3d f6 24 | : $(blo|ck+4)=.$|
|000020c0| 2b 22 20 61 74 20 6c 69 | 6e 65 20 22 2b c3 9e 2b |+" at li|ne "+..+|
|000020d0| bd 30 0d 0d 0c 2c c8 99 | 20 22 57 69 6d 70 5f 52 |.0...,..| "Wimp_R|
|000020e0| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 6c 6f 63 |eportErr|or",bloc|
|000020f0| 6b 2c 31 2c 22 43 61 6c | 65 6e 64 61 72 22 0d 0d |k,1,"Cal|endar"..|
|00002100| 16 05 e1 0d 0d 20 05 3a | 0d 0d 2a 0f dd 20 f2 64 |..... .:|..*.. .d|
|00002110| 61 74 65 49 6e 69 74 0d | 0d 34 08 ea 20 4d 24 0d |ateInit.|.4.. M$.|
|00002120| 0d 3e 21 59 25 3d bb 28 | c1 91 24 2c 31 32 2c 34 |.>!Y%=.(|..$,12,4|
|00002130| 29 29 20 3a 20 4d 24 3d | c1 91 24 2c 38 2c 33 29 |)) : M$=|..$,8,3)|
|00002140| 0d 0d 48 0b c8 8e 20 4d | 24 20 ca 0d 0d 52 12 c9 |..H... M|$ ...R..|
|00002150| 20 22 4a 61 6e 22 20 3a | 20 4d 25 3d 31 0d 0d 5c | "Jan" :| M%=1..\|
|00002160| 12 c9 20 22 46 65 62 22 | 20 3a 20 4d 25 3d 32 0d |.. "Feb"| : M%=2.|
|00002170| 0d 66 12 c9 20 22 4d 61 | 72 22 20 3a 20 4d 25 3d |.f.. "Ma|r" : M%=|
|00002180| 33 0d 0d 70 12 c9 20 22 | 41 70 72 22 20 3a 20 4d |3..p.. "|Apr" : M|
|00002190| 25 3d 34 0d 0d 7a 12 c9 | 20 22 4d 61 79 22 20 3a |%=4..z..| "May" :|
|000021a0| 20 4d 25 3d 35 0d 0d 84 | 12 c9 20 22 4a 75 6e 22 | M%=5...|.. "Jun"|
|000021b0| 20 3a 20 4d 25 3d 36 0d | 0d 8e 12 c9 20 22 4a 75 | : M%=6.|.... "Ju|
|000021c0| 6c 22 20 3a 20 4d 25 3d | 37 0d 0d 98 12 c9 20 22 |l" : M%=|7..... "|
|000021d0| 41 75 67 22 20 3a 20 4d | 25 3d 38 0d 0d a2 12 c9 |Aug" : M|%=8.....|
|000021e0| 20 22 53 65 70 22 20 3a | 20 4d 25 3d 39 0d 0d ac | "Sep" :| M%=9...|
|000021f0| 13 c9 20 22 4f 63 74 22 | 20 3a 20 4d 25 3d 31 30 |.. "Oct"| : M%=10|
|00002200| 0d 0d b6 13 c9 20 22 4e | 6f 76 22 20 3a 20 4d 25 |..... "N|ov" : M%|
|00002210| 3d 31 31 0d 0d c0 13 c9 | 20 22 44 65 63 22 20 3a |=11.....| "Dec" :|
|00002220| 20 4d 25 3d 31 32 0d 0d | ca 05 cb 0d 0d d4 05 e1 | M%=12..|........|
|00002230| 0d 0d de 05 3a 0d 0d e8 | 0f dd 20 f2 79 65 61 72 |....:...|.. .year|
|00002240| 28 59 25 29 0d 0d f2 30 | 59 65 61 72 24 3d c3 28 |(Y%)...0|Year$=.(|
|00002250| 59 25 29 20 3a 20 f2 69 | 6e 64 69 72 49 63 6f 6e |Y%) : .i|ndirIcon|
|00002260| 28 43 61 6c 65 6e 64 61 | 72 25 2c 32 30 2c 59 65 |(Calenda|r%,20,Ye|
|00002270| 61 72 24 29 0d 0d fc 05 | e1 0d 0e 06 05 3a 0d 0e |ar$)....|.....:..|
|00002280| 10 16 dd 20 f2 6d 6f 6e | 74 68 28 59 25 2c 4d 25 |... .mon|th(Y%,M%|
|00002290| 2c 7a 25 29 0d 0e 1a 1c | f2 63 61 6c 63 28 59 25 |,z%)....|.calc(Y%|
|000022a0| 2c 4d 25 29 20 3a 20 f2 | 79 65 61 72 28 59 25 29 |,M%) : .|year(Y%)|
|000022b0| 0d 0e 24 0c e7 20 7a 25 | 3d 32 20 8c 0d 0e 2e 19 |..$.. z%|=2 .....|
|000022c0| 20 20 20 20 20 3a 20 e7 | 20 a4 70 72 69 6e 74 65 |     : .| .printe|
|000022d0| 72 3d a3 20 8c 0d 0e 38 | 40 20 20 20 20 20 3a 20 |r=. ...8|@     : |
|000022e0| 45 72 72 6f 72 4d 73 67 | 24 3d 22 50 72 69 6e 74 |ErrorMsg|$="Print|
|000022f0| 65 72 20 6f 66 66 6c 69 | 6e 65 20 2d 20 72 65 63 |er offli|ne - rec|
|00002300| 6f 6e 6e 65 63 74 20 61 | 6e 64 20 63 6c 69 63 6b |onnect a|nd click|
|00002310| 20 4f 4b 2e 22 0d 0e 42 | 1a 20 20 20 20 20 3a 20 | OK."..B|.     : |
|00002320| f2 6c 6f 63 61 6c 45 72 | 72 6f 72 20 3a 20 e1 0d |.localEr|ror : ..|
|00002330| 0e 4c 05 cd 0d 0e 56 22 | 20 20 20 20 20 3a 20 ef |.L....V"|     : .|
|00002340| 20 32 2c 32 31 20 3a 20 | f1 20 3a 20 f1 3b 4d 24 | 2,21 : |. : .;M$|
|00002350| 3b 59 65 61 72 24 0d 0e | 60 16 20 20 20 20 20 3a |;Year$..|`.     :|
|00002360| 20 e7 20 46 6f 72 6d 25 | 3d 31 20 8c 0d 0e 6a 2d | . Form%|=1 ...j-|
|00002370| 20 20 20 20 20 3a 20 e3 | 20 61 25 3d 31 20 b8 20 |     : .| a%=1 . |
|00002380| 37 20 3a 20 f1 20 64 61 | 79 24 28 61 25 29 3b 41 |7 : . da|y$(a%);A|
|00002390| 24 28 61 25 29 20 3a 20 | ed 0d 0e 74 2c cc 20 3a |$(a%) : |...t,. :|
|000023a0| 20 e3 20 61 25 3d 30 20 | b8 20 36 20 3a 20 f1 20 | . a%=0 |. 6 : . |
|000023b0| 64 61 79 24 28 61 25 29 | 3b 41 24 28 61 25 2b 31 |day$(a%)|;A$(a%+1|
|000023c0| 29 20 3a 20 ed 0d 0e 7e | 05 cd 0d 0e 88 10 20 20 |) : ...~|......  |
|000023d0| 20 20 20 3a 20 ef 20 36 | 2c 33 0d 0e 92 05 cd 0d |   : . 6|,3......|
|000023e0| 0e 9c 05 e1 0d 0e a6 05 | 3a 0d 0e b0 12 dd 20 f2 |........|:..... .|
|000023f0| 63 61 6c 63 28 59 25 2c | 4d 25 29 0d 0e ba 2f ea |calc(Y%,|M%).../.|
|00002400| 20 61 25 2c 62 25 2c 6c | 65 61 70 25 2c 64 61 79 | a%,b%,l|eap%,day|
|00002410| 73 25 2c 6f 66 66 73 65 | 74 25 2c 63 6f 6c 25 2c |s%,offse|t%,col%,|
|00002420| 72 6f 77 25 2c 46 25 2c | 61 24 0d 0e c4 11 c8 8e |row%,F%,|a$......|
|00002430| 20 28 59 25 20 80 20 33 | 29 20 ca 0d 0e ce 10 c9 | (Y% . 3|) ......|
|00002440| 20 30 20 3a 20 c8 8e 20 | b9 20 ca 0d 0e d8 29 c9 | 0 : .. |. ....).|
|00002450| 20 28 59 25 20 83 20 31 | 30 30 29 3d 30 20 3a 20 | (Y% . 1|00)=0 : |
|00002460| c8 8e 20 28 28 59 25 20 | 81 20 31 30 30 29 80 20 |.. ((Y% |. 100). |
|00002470| 33 29 20 ca 0d 0e e2 15 | c9 20 30 20 20 20 20 20 |3) .....|. 0     |
|00002480| 3a 20 6c 65 61 70 25 3d | 31 0d 0e ec 15 c9 20 31 |: leap%=|1..... 1|
|00002490| 2c 32 2c 33 20 3a 20 6c | 65 61 70 25 3d 30 0d 0e |,2,3 : l|eap%=0..|
|000024a0| f6 05 cb 0d 0f 00 10 7f | 20 20 3a 20 6c 65 61 70 |........|  : leap|
|000024b0| 25 3d 31 0d 0f 0a 05 cb | 0d 0f 14 15 c9 20 31 2c |%=1.....|..... 1,|
|000024c0| 32 2c 33 20 3a 20 6c 65 | 61 70 25 3d 30 0d 0f 1e |2,3 : le|ap%=0...|
|000024d0| 05 cb 0d 0f 28 0b c8 8e | 20 4d 25 20 ca 0d 0f 32 |....(...| M% ...2|
|000024e0| 20 c9 20 31 2c 33 2c 35 | 2c 37 2c 38 2c 31 30 2c | . 1,3,5|,7,8,10,|
|000024f0| 31 32 20 3a 20 64 61 79 | 73 25 3d 33 31 0d 0f 3c |12 : day|s%=31..<|
|00002500| 26 c9 20 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |&. 2    |        |
|00002510| 20 20 20 3a 20 64 61 79 | 73 25 3d 32 38 2b 6c 65 |   : day|s%=28+le|
|00002520| 61 70 25 0d 0f 46 20 c9 | 20 34 2c 36 2c 39 2c 31 |ap%..F .| 4,6,9,1|
|00002530| 31 20 20 20 20 20 20 20 | 20 3a 20 64 61 79 73 25 |1       | : days%|
|00002540| 3d 33 30 0d 0f 50 05 cb | 0d 0f 5a 09 61 25 3d 59 |=30..P..|..Z.a%=Y|
|00002550| 25 0d 0f 64 43 e7 20 46 | 6f 72 6d 25 3d 31 20 8c |%..dC. F|orm%=1 .|
|00002560| 20 6f 66 66 73 65 74 25 | 3d 28 36 2b 61 25 2b 28 | offset%|=(6+a%+(|
|00002570| 61 25 2d 31 29 81 20 34 | 2d 28 61 25 2d 31 29 81 |a%-1). 4|-(a%-1).|
|00002580| 20 31 30 30 2b 28 61 25 | 2d 31 29 81 20 34 30 30 | 100+(a%|-1). 400|
|00002590| 29 83 20 37 0d 0f 6e 43 | e7 20 46 6f 72 6d 25 3d |). 7..nC|. Form%=|
|000025a0| 32 20 8c 20 6f 66 66 73 | 65 74 25 3d 28 37 2b 61 |2 . offs|et%=(7+a|
|000025b0| 25 2b 28 61 25 2d 31 29 | 81 20 34 2d 28 61 25 2d |%+(a%-1)|. 4-(a%-|
|000025c0| 31 29 81 20 31 30 30 2b | 28 61 25 2d 31 29 81 20 |1). 100+|(a%-1). |
|000025d0| 34 30 30 29 83 20 37 0d | 0f 78 27 e7 20 4d 25 3e |400). 7.|.x'. M%>|
|000025e0| 32 20 8c 20 6f 66 66 73 | 65 74 25 3d 28 6f 66 66 |2 . offs|et%=(off|
|000025f0| 73 65 74 25 2b 6c 65 61 | 70 25 29 83 20 37 0d 0f |set%+lea|p%). 7..|
|00002600| 82 0b c8 8e 20 4d 25 20 | ca 0d 0f 8c 30 c9 20 31 |.... M% |....0. 1|
|00002610| 20 20 3a 20 46 25 3d 6f | 66 66 73 65 74 25 20 20 |  : F%=o|ffset%  |
|00002620| 20 20 20 20 20 20 20 20 | 3a 20 4d 24 3d 22 4a 41 |        |: M$="JA|
|00002630| 4e 55 41 52 59 20 20 20 | 22 0d 0f 96 2e c9 20 32 |NUARY   |"..... 2|
|00002640| 20 20 3a 20 46 25 3d 28 | 6f 66 66 73 65 74 25 2b |  : F%=(|offset%+|
|00002650| 33 29 83 20 37 20 3a 20 | 4d 24 3d 22 46 45 42 52 |3). 7 : |M$="FEBR|
|00002660| 55 41 52 59 20 20 22 0d | 0f a0 2e c9 20 33 20 20 |UARY  ".|.... 3  |
|00002670| 3a 20 46 25 3d 28 6f 66 | 66 73 65 74 25 2b 33 29 |: F%=(of|fset%+3)|
|00002680| 83 20 37 20 3a 20 4d 24 | 3d 22 4d 41 52 43 48 20 |. 7 : M$|="MARCH |
|00002690| 20 20 20 20 22 0d 0f aa | 2e c9 20 34 20 20 3a 20 |    "...|.. 4  : |
|000026a0| 46 25 3d 28 6f 66 66 73 | 65 74 25 2b 36 29 83 20 |F%=(offs|et%+6). |
|000026b0| 37 20 3a 20 4d 24 3d 22 | 41 50 52 49 4c 20 20 20 |7 : M$="|APRIL   |
|000026c0| 20 20 22 0d 0f b4 2e c9 | 20 35 20 20 3a 20 46 25 |  ".....| 5  : F%|
|000026d0| 3d 28 6f 66 66 73 65 74 | 25 2b 31 29 83 20 37 20 |=(offset|%+1). 7 |
|000026e0| 3a 20 4d 24 3d 22 4d 41 | 59 20 20 20 20 20 20 20 |: M$="MA|Y       |
|000026f0| 22 0d 0f be 2e c9 20 36 | 20 20 3a 20 46 25 3d 28 |"..... 6|  : F%=(|
|00002700| 6f 66 66 73 65 74 25 2b | 34 29 83 20 37 20 3a 20 |offset%+|4). 7 : |
|00002710| 4d 24 3d 22 4a 55 4e 45 | 20 20 20 20 20 20 22 0d |M$="JUNE|      ".|
|00002720| 0f c8 2e c9 20 37 20 20 | 3a 20 46 25 3d 28 6f 66 |.... 7  |: F%=(of|
|00002730| 66 73 65 74 25 2b 36 29 | 83 20 37 20 3a 20 4d 24 |fset%+6)|. 7 : M$|
|00002740| 3d 22 4a 55 4c 59 20 20 | 20 20 20 20 22 0d 0f d2 |="JULY  |    "...|
|00002750| 2e c9 20 38 20 20 3a 20 | 46 25 3d 28 6f 66 66 73 |.. 8  : |F%=(offs|
|00002760| 65 74 25 2b 32 29 83 20 | 37 20 3a 20 4d 24 3d 22 |et%+2). |7 : M$="|
|00002770| 41 55 47 55 53 54 20 20 | 20 20 22 0d 0f dc 2e c9 |AUGUST  |  ".....|
|00002780| 20 39 20 20 3a 20 46 25 | 3d 28 6f 66 66 73 65 74 | 9  : F%|=(offset|
|00002790| 25 2b 35 29 83 20 37 20 | 3a 20 4d 24 3d 22 53 45 |%+5). 7 |: M$="SE|
|000027a0| 50 54 45 4d 42 45 52 20 | 22 0d 0f e6 30 c9 20 31 |PTEMBER |"...0. 1|
|000027b0| 30 20 3a 20 46 25 3d 6f | 66 66 73 65 74 25 20 20 |0 : F%=o|ffset%  |
|000027c0| 20 20 20 20 20 20 20 20 | 3a 20 4d 24 3d 22 4f 43 |        |: M$="OC|
|000027d0| 54 4f 42 45 52 20 20 20 | 22 0d 0f f0 2e c9 20 31 |TOBER   |"..... 1|
|000027e0| 31 20 3a 20 46 25 3d 28 | 6f 66 66 73 65 74 25 2b |1 : F%=(|offset%+|
|000027f0| 33 29 83 20 37 20 3a 20 | 4d 24 3d 22 4e 4f 56 45 |3). 7 : |M$="NOVE|
|00002800| 4d 42 45 52 20 20 22 0d | 0f fa 2e c9 20 31 32 20 |MBER  ".|.... 12 |
|00002810| 3a 20 46 25 3d 28 6f 66 | 66 73 65 74 25 2b 35 29 |: F%=(of|fset%+5)|
|00002820| 83 20 37 20 3a 20 4d 24 | 3d 22 44 45 43 45 4d 42 |. 7 : M$|="DECEMB|
|00002830| 45 52 20 20 22 0d 10 04 | 05 cb 0d 10 0e 14 44 25 |ER  "...|......D%|
|00002840| 28 29 3d 30 20 3a 20 41 | 24 28 29 3d 22 22 0d 10 |()=0 : A|$()=""..|
|00002850| 18 14 e3 20 61 25 3d 30 | 20 b8 20 64 61 79 73 25 |... a%=0| . days%|
|00002860| 2d 31 0d 10 22 25 63 6f | 6c 25 3d 28 61 25 2b 46 |-1.."%co|l%=(a%+F|
|00002870| 25 29 83 20 37 20 3a 20 | 72 6f 77 25 3d 28 61 25 |%). 7 : |row%=(a%|
|00002880| 2b 46 25 29 81 20 37 0d | 10 2c 1c 44 25 28 63 6f |+F%). 7.|.,.D%(co|
|00002890| 6c 25 2b 31 2c 72 6f 77 | 25 2b 31 29 3d 28 61 25 |l%+1,row|%+1)=(a%|
|000028a0| 2b 31 29 0d 10 36 05 ed | 0d 10 40 1b e3 20 61 25 |+1)..6..|..@.. a%|
|000028b0| 3d 31 20 b8 20 36 20 3a | 20 e3 20 62 25 3d 31 20 |=1 . 6 :| . b%=1 |
|000028c0| b8 20 37 0d 10 4a 17 61 | 24 3d 22 20 22 2b c3 28 |. 7..J.a|$=" "+.(|
|000028d0| 44 25 28 62 25 2c 61 25 | 29 29 0d 10 54 17 e7 20 |D%(b%,a%|))..T.. |
|000028e0| a9 28 61 24 29 3d 32 20 | 8c 20 61 24 2b 3d 22 20 |.(a$)=2 |. a$+=" |
|000028f0| 22 0d 10 5e 19 e7 20 61 | 24 3d 22 20 30 20 22 20 |"..^.. a|$=" 0 " |
|00002900| 8c 20 61 24 3d 22 20 20 | 20 22 0d 10 68 0e 41 24 |. a$="  | "..h.A$|
|00002910| 28 62 25 29 2b 3d 61 24 | 0d 10 72 0f ed 20 62 25 |(b%)+=a$|..r.. b%|
|00002920| 20 3a 20 ed 20 61 25 0d | 10 7c 05 e1 0d ff       | : . a%.|.|....  |
+--------+-------------------------+-------------------------+--------+--------+